home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / tpstr.exe / TPSTR.INT < prev    next >
Encoding:
Text File  |  1992-11-08  |  5.5 KB  |  116 lines
  1. {**************************************************************************}
  2. {                                                                          }
  3. { TPSTR.PAS                                                                }
  4. { Turbo Pascal Version 6.00                                                }
  5. {                                                                          }
  6. { (c) 1992, RAVIART Philippe, All rights reserved.                         }
  7. {**************************************************************************}
  8. {            }
  9.  
  10. unit TpStr;interface
  11.  
  12. {**************************************************************************}
  13. {                                                                          }
  14. { This Unit contains 80 procs for treating characters or strings.          }
  15. { Please Refer to "TPSTR.DOC" for details.                                 }
  16. {                                                                          }
  17. {**************************************************************************}
  18.  
  19. function    StrL  (L: Longint)                          :String;
  20. function    StrLF (L: Longint;Field: Integer)           :String;
  21. function    StrR  (R: Real)                             :String;
  22. function    StrRF (R: Real;Field: Integer)              :String;
  23. function    StrRFD(R: Real;Field,Decimals: Integer)     :String;
  24. {$IFOPT N+}
  25. function    StrC  (C: Comp)                             :String;
  26. function    StrCF (C: Comp;Field: Integer)              :String;
  27. function    StrCFD(C: Comp;Field,Decimals: Integer)     :String;
  28. function    StrD  (D: Double)                           :String;
  29. function    StrDF (D: Double;Field: Integer)            :String;
  30. function    StrDFD(D: Double;Field,Decimals: Integer)   :String;
  31. function    StrE  (E: Extended)                         :String;
  32. function    StrEF (E: Extended;Field: Integer)          :String;
  33. function    StrEFD(E: Extended;Field,Decimals: Integer) :String;
  34. function    StrS  (S: Single)                           :String;
  35. function    StrSF (S: Single;Field: Integer)            :String;
  36. function    StrSFD(E: Single;Field,Decimals: Integer)   :String;
  37. {$ENDIF}
  38.  
  39. Procedure   ChrDel (Var S: String;Match: Char);
  40. Procedure   ChrDelL(Var S: String;Match: Char);
  41. Procedure   ChrDelR(Var S: String;Match: Char);
  42. Procedure   ChrFill(Var S: String;Fill: Char;MaxLen: Byte);
  43. Procedure   ChrPadC(Var S: String;Fill: Char;MaxLen: Byte);
  44. procedure   ChrPadL(Var S: String;Fill: Char;MaxLen: Byte);
  45. Procedure   ChrPadR(Var S: String;Fill: Char;MaxLen: Byte);
  46. Procedure   ChrRepl(Var S:String;c1,c2 : Char);
  47. Procedure   ChrReplI(Var S:String;c1,c2 : Char);
  48.  
  49. function    ATrim(S: String):string;
  50. Function    Copy(S:String;Index,Count: Integer):string;
  51. Procedure   Delete(Var S: String;Index,Count: Integer);
  52. function    LoCase(C: Char)                         :Char;
  53. function    LTrim(S: String):string;
  54. Function    Pos(Find,S: String):integer;
  55. function    Replicate(Fill: Char;MaxLen:Byte):string;
  56. function    RTrim(S: String):string;
  57. Function    Soundex(S: String):String;
  58. function    UpCase(C: Char)                         :Char;
  59. Function    WrdQty(S: String):Byte;
  60.  
  61. Procedure   StrCat(Var Dest: String;S: String;Maxlen: Byte);
  62. Function    StrCmp(S1,S2: String):ShortInt;
  63. Function    StrCmpI(S1,S2: String):ShortInt;
  64. Procedure   StrCopy(Var Dest: String;S: String;Index,Count: Byte);
  65. Procedure   StrCut(Var S: String;MaxLen: Byte);
  66. Procedure   StrDeTab(Var Dest: String;S: String;TabSize: Byte);
  67. Procedure   StrFill(Var S: String;Fill: String;Count, MaxLen: Byte);
  68. Procedure   StrJC(Var S: String;MaxLen: Byte);
  69. Procedure   StrJL(Var S: String;MaxLen: Byte);
  70. Procedure   StrJR(Var S: String;MaxLen: Byte);
  71. function    StrLwr(S: String)                       :String;
  72. Procedure   StrMove(Var Dest: String;S: String);
  73. Procedure   StrOvr(Var Dest: String;S: String;Index: byte);
  74. Procedure   StrPeek(Var Dest: String;Var Source;MaxLen: Byte);
  75. Procedure   StrPoke(Var Dest;Source: String);
  76. Procedure   StrReTab(Var Dest: String;S: String;TabSize: Byte);
  77. Procedure   StrRev(Var S: String);
  78. function    StrUpr(S: String)                       :String;
  79.  
  80. Function    IsAscii (C: Char):Boolean;
  81. Function    IsCntrl (C: Char):Boolean;
  82. Function    IsGraph (C: Char):Boolean;
  83. Function    IsPrint (C: Char):Boolean;
  84. Function    IsSigned(C: Char):Boolean;
  85. Function    IsSpace (C: Char):Boolean;
  86. Function    IsAlnum (C: Char):Boolean;
  87. Function    IsAlpha (C: Char):Boolean;
  88. Function    IsDigit (C: Char):Boolean;
  89. Function    IsDos   (C: Char):Boolean;
  90. Function    IsFile  (C: Char):Boolean;
  91. Function    IsLower (C: Char):Boolean;
  92. Function    IsPunct (C: Char):Boolean;
  93. Function    IsReal  (C: Char):Boolean;
  94. Function    IsUpper (C: Char):Boolean;
  95. Function    IsHex   (C: Char):Boolean;
  96. Function    IsPath  (C: Char):Boolean;
  97.  
  98. function    HEXStrToLong(Str:string):longint;
  99. function    LongHex(L : LongInt) : string;
  100. function    LongBin(L : LongInt) : string;
  101. function    LongOctal(L : LongInt) : string;
  102. function    MotHex(W : Word) : string;
  103. function    MotBin(W : Word) : string;
  104. function    MotOctal(W : Word) : string;
  105. function    OctetHex(B : Byte) : string;
  106. function    OctetBin(B : Byte) : string;
  107. function    OctetOctal(B : Byte) : string;
  108. function    PtrHex(P : Pointer) : string;
  109. function    StrToReal(Str:string):Real;
  110. function    StrToLong(Str:string):Longint;
  111. function    ValidInt(Str:string):boolean;
  112. function    ValidHInt(Str:string):boolean;
  113. function    ValidReal(Str:string):boolean;
  114.  
  115. implementation
  116.